void do_tests()
{
	object tp;
#ifndef __NO_ADD_ACTION__
	SAVETP;
	enable_commands();
	RESTORETP;
	ASSERT(!find_living("foo"));
	set_living_name("foo");
	ASSERT(find_living("foo") == this_object());
	disable_commands();
	ASSERT(!find_living("foo"));
	enable_commands();
	RESTORETP;
	set_living_name("bar");
	ASSERT(!find_living("foo"));
	ASSERT(find_living("bar") == this_object());
	destruct(this_object());
#endif
}
